home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASANS.ZIP / CH08_1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-04  |  1.9 KB  |  63 lines
  1.                             (* Chapter 8 - Programming exercise 1 *)
  2. program Find_All_Upper_Case_Characters;
  3.  
  4. const String_Size = 30;
  5.  
  6. type Upper_Set = set of 'A'..'Z';
  7.  
  8. var Data_Set    : Upper_Set;
  9.     Storage     : string[String_Size];
  10.     Index       : 1..String_Size;
  11.     Print_Group : string[26];
  12.  
  13. begin  (* main program *)
  14.    Data_Set := [];
  15.    Print_Group := '';
  16.    Storage := 'This Is A Set Test.';
  17.  
  18.    for Index := 1 to Length(Storage) do begin
  19.       if Storage[Index] in ['A'..'Z'] then begin
  20.          if Storage[Index] in Data_Set then
  21.             Writeln(Index:4,'   ',Storage[Index],
  22.                          ' is already in the set')
  23.          else begin
  24.             Data_Set := Data_Set + [Storage[Index]];
  25.             Print_Group := Print_Group + Storage[Index];
  26.             Writeln(Index:4,'   ',Storage[Index],
  27.                          ' added to group, complete group = ',
  28.                          Print_Group);
  29.          end;
  30.       end
  31.       else
  32.          Writeln(Index:4,'   ',Storage[Index],
  33.                        ' is not an upper case letter');
  34.    end;
  35. end.  (* of main program *)
  36.  
  37.  
  38.  
  39.  
  40. { Result of execution
  41.  
  42.    1   T added to group, complete group = T
  43.    2   h is not an upper case letter
  44.    3   i is not an upper case letter
  45.    4   s is not an upper case letter
  46.    5     is not an upper case letter
  47.    6   I added to group, complete group = TI
  48.    7   s is not an upper case letter
  49.    8     is not an upper case letter
  50.    9   A added to group, complete group = TIA
  51.   10     is not an upper case letter
  52.   11   S added to group, complete group = TIAS
  53.   12   e is not an upper case letter
  54.   13   t is not an upper case letter
  55.   14     is not an upper case letter
  56.   15   T is already in the set
  57.   16   e is not an upper case letter
  58.   17   s is not an upper case letter
  59.   18   t is not an upper case letter
  60.   19   . is not an upper case letter
  61.  
  62. }
  63.